home *** CD-ROM | disk | FTP | other *** search
/ The X-Philes (2nd Revision) / The X-Philes Number 1 (1995).iso / xphiles / hp48_2 / h_piper_.0 < prev    next >
Internet Message Format  |  1995-03-23  |  13KB
  1. Path: ecsgate!mcnc!gatech!prism!vapsppr
  2. From: vapsppr@prism.gatech.EDU (Paul Raines)
  3. Newsgroups: comp.sys.handhelds
  4. Subject: H. Piper! ver 2.0 (CURVED CORNERS & RESUME GAME)
  5. Message-ID: <29827@hydra.gatech.EDU>
  6. Date: 24 May 91 22:13:42 GMT
  7. Organization: Georgia Institute of Technology
  8. Lines: 240
  9.  
  10. Below are both the ASC and UUE versions of H.Piper! 2.0
  11.  
  12. Changes:    - CURVED CORNERS!!! 
  13.         - resume game ability!
  14.         - most randomness removed
  15.  
  16. RESUME:  Between jobs (i.e. while at the dripping faucet wait
  17.      screen) you can press the decimal (.) key to leave
  18.      the game and go to the regular calculator mode.  The
  19.      total score and level you achieved will be stored in
  20.      the user flags so that next time you start the game,
  21.      you will resume the game as you left it.  Do not
  22.      run the SCORE program or you will lose the resumable
  23.      state.
  24.  
  25. RANDOM:  The starting pipe for the first level is still 
  26.      placed randomly.  For subsequent levels, however,
  27.      the starting pipe is located on the grid site
  28.      you "leaked" on with the starting direction opposite
  29.      of that you entered.  If you leaked onto the border,
  30.      then the starting pipe is placed on the site you
  31.      leaked from.
  32.      The first five pipes in the queue are selected 
  33.      randomly.  Placing a pipe on the grid with the (7)
  34.      key will still randomly select a new pipe to put at
  35.      the top of the queue.  If you press (4) to place
  36.      a pipe, the pipe at the top of the queue will be
  37.      the one currently displayed between the score and
  38.      level indicators.
  39.  
  40. General Notes:  Some people have reported assorted problems with
  41.     getting the program to work.  For those who can't get
  42.     ASC-> to work, it works for me.  If one of these people
  43.     would mail me the ASC they are trying to get to work, I
  44.     might be able to find a solution.  For those who can't get
  45.     SCHIP to work with H. Piper, try turning off all alarms
  46.     and date/clock displays.  If any of you have Chipper,
  47.     you might try compiling the v1.2 source code I posted and
  48.     see if you can get it to run from there.  I am really
  49.     sorry for all these problems, but I am at a loss to help
  50.     right now.
  51.  
  52. Development Notes:  It is really funny how work involved on
  53.     each aspect of this last update was inversely proportional
  54.     to what I expected.  The rounded corners were much, much
  55.     easier to implement than I thought.  It does increase the
  56.     code size by a hefty chunk, but it took little work.  The
  57.     derandomization of the starting pipe was an absolute
  58.     b:tch.  I had to extensively recode several procedures
  59.     and add some complex testing just to make sure you didn't
  60.     end up having a starting pipe going into a border.
  61.  
  62. Program Size:  I have put a semi-rigid limit of 2K on the size
  63.     of the program.  Any improvement that will put it over
  64.     that barrier just won't be worth it. (I will of course
  65.     probably eat these words later.)
  66.  
  67. Everyone please keep me informed on your success in getting this
  68. version to run. Also, any comments and suggestions are welcome.
  69.  
  70.  
  71. -------( cut here for ASC version)------------------------------
  72. %%HP: T(3)A(D)F(.);
  73. "C2A20D4E0021616723E20302251696E6563702823692021393931300FF3F58E8
  74. 0234102162E6E4060016008AE61F55C6FF0600160026002F57000E06B0160026
  75. 008ACA2FE11F552720238721C3060026008A462FE11F552720236021C48A2706
  76. 62169336003FE10D5136500780036421068A68068616200D51078026502FE10D
  77. 518A09068616A20D51078026502FE10D51180E1865064608518AE10F332F5636
  78. A546931F923D5437502F923D54080E7ACB0F557AEC060016000D210780030621
  79. 4B46207A4A06000DC47A0B06800DC447C043E321EB7600080772027710735021
  80. 2D162306017AED0D6107800306212E160006067A2A0D2117201383210FD64342
  81. 2142E142C216208A6106010D81078003063160178013233140C4FF31A2B40036
  82. 60B4303640B4603620B450360031833C703710CC03C701C8433C3038E58AC53F
  83. E11F56B80028019802080C622762CCA62042E37600860072E5720806FF0F5106
  84. 700E1A32AA06800E1A324C06300E1A32ED06600E1A328F06100E1A32C806400E
  85. 1A326906F00E1AE6200F70040042E431A506F07202080D622700EE72C1080D62
  86. 2700EE080D16F00821180D185000EE422142C232E907FF04FF0600D801D84042
  87. 2142C20609426300EE422142C232E9071004A00690D801D840422142C2060942
  88. 6300EE42E142C232E9170F140F1600D801D84042E142C20609426300EE42E142
  89. C232E9170114061605D801D84042E142C20609426300EE32E9070662A28A640D
  90. 4100EE32E9080107A062A28AE30D8100EE080D62A28A630D8100EE07FF030041
  91. 6300EE8A45AFE10F5662CB06C616C10D8100EE42E3A7100809160F0821040041
  92. 46A4404129A4505122280AB30041E62680285A080B086508650300410CB30027
  93. FF080C62A218428AA40D11F4005140A3105140960051E3B8390670B820080C62
  94. A29361414A8AC4174093D141CA8AE417209351414B8A05174093E141CB8A2517
  95. 200D215122B350410D3608248041CD38652710416C3610248041CD38E5271041
  96. 2D180308038AE11F558AE1080C62A217309330416FA440418FA3500D21F40051
  97. 40A3105140960051E3A380512272E50600771073465161871076000710033051
  98. C072E5A600624E080E180818471400070B0F5142E300EE06B00EE951430E1A51
  99. 8300EE06300F815223000E260036008ACA2FE11F5627203841238751A434C387
  100. 108AE61F56084736460853480F430017104310074618488AE61F555800368246
  101. 828AA61F332F560F033DA437B01F033DA437B02F033DA48AA65F332F5637B01F
  102. 033DA437B02F033DA472E57ACB0F56E800E420E740E7CF8300512C0865164618
  103. 507851F40051CC526F030021433610510E8AA906A216810D51078026502FE10D
  104. 51526F36008AE61F56280E3F5706B00E1A51AE06000E1A510F00DF7AEC362046
  105. 803D847A6E36A03D848A4A36E046013D740652426306B00E1A618206000E1A61
  106. 823D744720448361603D7461C000EE1800F60F182F1865F6F0082F08E508E508
  107. E50701172000EE070F17EF08650865086518E5084100EE8ACA1800F6F0182F18
  108. E51FE1F60F082F0865180018651865084108E50FE100EE380062251F56560003
  109. B056FF1400618816301F81614A62CB080362A20D8108036225160008021F5508
  110. 0262CB080362A20D8172E5784573FF618B8400616B87FF7636618B760072E500
  111. EE16F0082108E508E508E57AEB0FE100EE080C62251F5604B051E39800080C62
  112. 25080916101F5500EE3600B4603610B4303601B400360FB45036FF180C1843F6
  113. 0F182F140F51E3140651E3180C1843F6F0182F14F051E314A051E3C84362CC00
  114. EE180A71A21C7008650865040018658A451FE10F565800463036008A463FE10F
  115. 56280062CB06400D848A463FE108050F5562CB06400D8447C058023710335071
  116. 6300EE369646908AA68F332F562F923D5437608AA67F332F561F923D5437602F
  117. 923D5400EE080E07EF08650865164118508AA61F332F561F03368646233DA437
  118. B02F033DA400EE8F8F0C0C0C0C0C0C0C0C0C0C0CFF3030303030303030303030
  119. FF000000000000000000003C3C3C3C3C3C3C3CFFFF00000000FFFF3C3C000000
  120. 003C3CFFFFFFFFFFFFFFFFFFFFF0703030383CFFFF0F0E0C0C1C3CFFFF0C0C0C
  121. 0CFFFFFFFF30303030FFFF3C3C3C3C3C3CFFFFFFFF3C3C3C3C3C3C00E7242424
  122. 24E70000000000000000003C1C0C0C0E0FFFFF3C38303070F0FFFF000081C3C3
  123. 8100000001010707010100008181E781008040408001020201D15161E1102030
  124. 3060705080009030A000000000000000000000000000003A2A3E2AAABB293921
  125. A3BB2A3B22A388888804849D292D259DB3AA3BAAB2A929A9199D4B4A4B4263AE
  126. AAEA4A4EEEA8EC989E0202078F8F8F0700B000B000B000B000B000B000B000B0
  127. 00B000B000B000B000B000B000B000B000B000B000B000B000B000B000B000B0
  128. 00B000B000B000B000B000B000B000B000B000B000B000B000B000B000B000B0
  129. 00B000B000B000B000B000B000B000B000B000B000B000B000B000B000B000B0
  130. 00B000B000B000B000ED72"
  131. ---------( cut here - end of ASC version)-----------------------
  132.  
  133. SCORE program to read last games score and level
  134. from the user flags:
  135.  
  136. %%HP: T(3)A(D)F(.);
  137. \<< RCLF 2 GET
  138. # FFFFFFh AND DUP
  139. # FFFFh AND DUP
  140. # FFh AND SWAP
  141. # 100h / # 64h * +
  142. B\->R SWAP # 10000h /
  143. # 2h - # 4h / # 14h
  144. SWAP - B\->R 1 - RCLF
  145. 2 # 0h PUT STOF
  146. \>>
  147.  
  148. ------(cut here for UUE version)--------------------------------
  149. begin 600 vapsppr
  150. M"B4E2%`Z(%0H,RE!*$0I1B@N*3L*(D,R03(P1#1%,#`R,38Q-C<R,T4R,#,P
  151. M,C(U,38Y-D4V-38S-S`R.#(S-CDR,#(Q,SDS.3,Q,S`P1D8S1C4X13@*,#(S
  152. M-#$P,C$V,D4V130P-C`P,38P,#A!138Q1C4U0S9&1C`V,#`Q-C`P,C8P,#)&
  153. M-3<P,#!%,#9",#$V,#`R-@HP,#A!0T$R1D4Q,48U-3(W,C`R,S@W,C%#,S`V
  154. M,#`R-C`P.$$T-C)&13$Q1C4U,C<R,#(S-C`R,4,T.$$R-S`V"C8R,38Y,S,V
  155. M,#`S1D4Q,$0U,3,V-3`P-S@P,#,V-#(Q,#8X038X,#8X-C$V,C`P1#4Q,#<X
  156. M,#(V-3`R1D4Q,$0*-3$X03`Y,#8X-C$V03(P1#4Q,#<X,#(V-3`R1D4Q,$0U
  157. M,3$X,$4Q.#8U,#8T-C`X-3$X044Q,$8S,S)&-38S-@I!-30V.3,Q1CDR,T0U
  158. M-#,W-3`R1CDR,T0U-#`X,$4W04-",$8U-3=!14,P-C`P,38P,#!$,C$P-S@P
  159. M,#,P-C(Q"C1"-#8R,#=!-$$P-C`P,$1#-#=!,$(P-C@P,$1#-#0W0S`T,T4S
  160. M,C%%0C<V,#`P.#`W-S(P,C<W,3`W,S4P,C$*,D0Q-C(S,#8P,3=!140P1#8Q
  161. M,#<X,#`S,#8R,3)%,38P,#`V,#8W03)!,$0R,3$W,C`Q,S@S,C$P1D0V-#,T
  162. M,@HR,30R13$T,D,R,38R,#A!-C$P-C`Q,$0X,3`W.#`P,S`V,S$V,#$W.#`Q
  163. M,S(S,S$T,$,T1D8S,4$R0C0P,#,V"C8P0C0S,#,V-#!"-#8P,S8R,$(T-3`S
  164. M-C`P,S$X,S-#-S`S-S$P0T,P,T,W,#%#.#0S,T,S,#,X134X04,U,T8*13$Q
  165. M1C4V0C@P,#(X,#$Y.#`R,#@P0S8R,C<V,D-#038R,#0R13,W-C`P.#8P,#<R
  166. M134W,C`X,#9&1C!&-3$P-@HW,#!%,4$S,D%!,#8X,#!%,4$S,C1#,#8S,#!%
  167. M,4$S,D5$,#8V,#!%,4$S,CA&,#8Q,#!%,4$S,D,X,#8T,#!%"C%!,S(V.3`V
  168. M1C`P13%!138R,#!&-S`P-#`P-#)%-#,Q034P-D8P-S(P,C`X,$0V,C(W,#!%
  169. M13<R0S$P.#!$-C(*,C<P,$5%,#@P1#$V1C`P.#(Q,3@P1#$X-3`P,$5%-#(R
  170. M,30R0S(S,D4Y,#=&1C`T1D8P-C`P1#@P,40X-#`T,@HR,30R0S(P-C`Y-#(V
  171. M,S`P144T,C(Q-#)#,C,R13DP-S$P,#1!,#`V.3!$.#`Q1#@T,#0R,C$T,D,R
  172. M,#8P.30R"C8S,#!%130R13$T,D,R,S)%.3$W,$8Q-#!&,38P,$0X,#%$.#0P
  173. M-#)%,30R0S(P-C`Y-#(V,S`P144T,D4Q-#(*0S(S,D4Y,3<P,3$T,#8Q-C`U
  174. M1#@P,40X-#`T,D4Q-#)#,C`V,#DT,C8S,#!%13,R13DP-S`V-C)!,CA!-C0P
  175. M1`HT,3`P144S,D4Y,#@P,3`W03`V,D$R.$%%,S!$.#$P,$5%,#@P1#8R03(X
  176. M038S,$0X,3`P144P-T9&,#,P,#0Q"C8S,#!%13A!-#5!1D4Q,$8U-C8R0T(P
  177. M-D,V,39#,3!$.#$P,$5%-#)%,T$W,3`P.#`Y,38P1C`X,C$P-#`P-#$*-#9!
  178. M-#0P-#$R.4$T-3`U,3(R,C@P04(S,#`T,44V,C8X,#(X-4$P.#!",#@V-3`X
  179. M-C4P,S`P-#$P0T(S,#`R-PI&1C`X,$,V,D$R,3@T,CA!030P1#$Q1C0P,#4Q
  180. M-#!!,S$P-3$T,#DV,#`U,44S0C@S.3`V-S!".#(P,#@P0S8R"D$R.3,V,30Q
  181. M-$$X04,T,3<T,#DS1#$T,4-!.$%%-#$W,C`Y,S4Q-#$T0CA!,#4Q-S0P.3-%
  182. M,30Q0T(X03(U,3<*,C`P1#(Q-3$R,D(S-3`T,3!$,S8P.#(T.#`T,4-$,S@V
  183. M-3(W,3`T,39#,S8Q,#(T.#`T,4-$,SA%-3(W,3`T,0HR1#$X,#,P.#`S.$%%
  184. M,3%&-34X044Q,#@P0S8R03(Q-S,P.3,S,#0Q-D9!-#0P-#$X1D$S-3`P1#(Q
  185. M1C0P,#4Q"C0P03,Q,#4Q-#`Y-C`P-3%%,T$S.#`U,3(R-S)%-3`V,#`W-S$P
  186. M-S,T-C4Q-C$X-S$P-S8P,#`W,3`P,S,P-3$*0S`W,D4U038P,#8R-$4P.#!%
  187. M,3@P.#$X-#<Q-#`P,#<P0C!&-3$T,D4S,#!%13`V0C`P144Y-3$T,S!%,4$U
  188. M,0HX,S`P144P-C,P,$8X,34R,C,P,#!%,C8P,#,V,#`X04-!,D9%,3%&-38R
  189. M-S(P,S@T,3(S.#<U,4$T,S1#,S@W"C$P.$%%-C%&-38P.#0W,S8T-C`X-3,T
  190. M.#!&-#,P,#$W,3`T,S$P,#<T-C$X-#@X044V,48U-34X,#`S-C@R-#8*.#(X
  191. M04$V,48S,S)&-38P1C`S,T1!-#,W0C`Q1C`S,T1!-#,W0C`R1C`S,T1!-#A!
  192. M038U1C,S,D8U-C,W0C`Q1@HP,S-$030S-T(P,D8P,S-$030W,D4U-T%#0C!&
  193. M-39%.#`P130R,$4W-#!%-T-&.#,P,#4Q,D,P.#8U,38T-C$X"C4P-S@U,48T
  194. M,#`U,4-#-3(V1C`S,#`R,30S,S8Q,#4Q,$4X04$Y,#9!,C$V.#$P1#4Q,#<X
  195. M,#(V-3`R1D4Q,$0*-3$U,C9&,S8P,#A!138Q1C4V,C@P13-&-3<P-D(P,$4Q
  196. M034Q044P-C`P,$4Q034Q,$8P,$1&-T%%0S,V,C`T-@HX,#-$.#0W039%,S9!
  197. M,#-$.#0X031!,S9%,#0V,#$S1#<T,#8U,C0R-C,P-D(P,$4Q038Q.#(P-C`P
  198. M,$4Q038Q"C@R,T0W-#0W,C`T-#@S-C$V,#-$-S0V,4,P,#!%13$X,#!&-C!&
  199. M,3@R1C$X-C5&-D8P,#@R1C`X134P.$4U,#@*134P-S`Q,3<R,#`P144P-S!&
  200. M,3=%1C`X-C4P.#8U,#@V-3$X134P.#0Q,#!%13A!0T$Q.#`P1C9&,#$X,D8Q
  201. M.`I%-3%&13%&-C!&,#@R1C`X-C4Q.#`P,3@V-3$X-C4P.#0Q,#A%-3!&13$P
  202. M,$5%,S@P,#8R,C4Q1C4V-38P,#`S"D(P-39&1C$T,#`V,3@X,38S,#%&.#$V
  203. M,31!-C)#0C`X,#,V,D$R,$0X,3`X,#,V,C(U,38P,#`X,#(Q1C4U,#@*,#(V
  204. M,D-",#@P,S8R03(P1#@Q-S)%-3<X-#4W,T9&-C$X0C@T,#`V,39".#=&1C<V
  205. M,S8V,3A"-S8P,#<R134P,`I%13$V1C`P.#(Q,#A%-3`X134P.$4U-T%%0C!&
  206. M13$P,$5%,#@P0S8R,C4Q1C4V,#1",#4Q13,Y.#`P,#@P0S8R"C(U,#@P.3$V
  207. M,3`Q1C4U,#!%13,V,#!"-#8P,S8Q,$(T,S`S-C`Q0C0P,#,V,$9"-#4P,S9&
  208. M1C$X,$,Q.#0S1C8*,$8Q.#)&,30P1C4Q13,Q-#`V-3%%,S$X,$,Q.#0S1C9&
  209. M,#$X,D8Q-$8P-3%%,S$T03`U,44S0S@T,S8R0T,P,`I%13$X,$$W,4$R,4,W
  210. M,#`X-C4P.#8U,#0P,#$X-C4X030U,49%,3!&-38U.#`P-#8S,#,V,#`X030V
  211. M,T9%,3!&"C4V,C@P,#8R0T(P-C0P,$0X-#A!-#8S1D4Q,#@P-3!&-34V,D-"
  212. M,#8T,#!$.#0T-T,P-3@P,C,W,3`S,S4P-S$*-C,P,$5%,S8Y-C0V.3`X04$V
  213. M.$8S,S)&-38R1CDR,T0U-#,W-C`X04$V-T8S,S)&-38Q1CDR,T0U-#,W-C`R
  214. M1@HY,C-$-30P,$5%,#@P13`W148P.#8U,#@V-3$V-#$Q.#4P.$%!-C%&,S,R
  215. M1C4V,48P,S,V.#8T-C(S,T1!-#,W"D(P,D8P,S-$030P,$5%.$8X1C!#,$,P
  216. M0S!#,$,P0S!#,$,P0S!#,$-&1C,P,S`S,#,P,S`S,#,P,S`S,#,P,S`*1D8P
  217. M,#`P,#`P,#`P,#`P,#`P,#`P,#-#,T,S0S-#,T,S0S-#,T-&1D9&,#`P,#`P
  218. M,#!&1D9&,T,S0S`P,#`P,`HP,#-#,T-&1D9&1D9&1D9&1D9&1D9&1D9&1D8P
  219. M-S`S,#,P,S@S0T9&1D8P1C!%,$,P0S%#,T-&1D9&,$,P0S!#"C!#1D9&1D9&
  220. M1D8S,#,P,S`S,$9&1D8S0S-#,T,S0S-#,T-&1D9&1D9&1C-#,T,S0S-#,T,S
  221. M0S`P13<R-#(T,C0*,C1%-S`P,#`P,#`P,#`P,#`P,#`P,#-#,4,P0S!#,$4P
  222. M1D9&1D8S0S,X,S`S,#<P1C!&1D9&,#`P,#@Q0S-#,PHX,3`P,#`P,#`Q,#$P
  223. M-S`W,#$P,3`P,#`X,3@Q13<X,3`P.#`T,#0P.#`P,3`R,#(P,40Q-3$V,44Q
  224. M,3`R,#,P"C,P-C`W,#4P.#`P,#DP,S!!,#`P,#`P,#`P,#`P,#`P,#`P,#`P
  225. M,#`P,#`P,#`S03)!,T4R04%!0D(R.3,Y,C$*03-"0C)!,T(R,D$S.#@X.#@X
  226. M,#0X-#E$,CDR1#(U.41",T%!,T)!04(R03DR.4$Y,3DY1#1"-$$T0C0R-C-!
  227. M10I!045!-$$T145%03A%0SDX.44P,C`R,#<X1CA&.$8P-S`P0C`P,$(P,#!"
  228. M,#`P0C`P,$(P,#!",#`P0C`P,$(P"C`P0C`P,$(P,#!",#`P0C`P,$(P,#!"
  229. M,#`P0C`P,$(P,#!",#`P0C`P,$(P,#!",#`P0C`P,$(P,#!",#`P0C`*,#!"
  230. M,#`P0C`P,$(P,#!",#`P0C`P,$(P,#!",#`P0C`P,$(P,#!",#`P0C`P,$(P
  231. M,#!",#`P0C`P,$(P,#!",`HP,$(P,#!",#`P0C`P,$(P,#!",#`P0C`P,$(P
  232. M,#!",#`P0C`P,$(P,#!",#`P0C`P,$(P,#!",#`P0C`P,$(P"C`P0C`P,$(P
  233. M,#!",#`P0C`P,$5$-S(B"@H*)25(4#H@5"@S*4$H1"E&*"XI.PI</#P@4D-,
  234. M1B`R($=%5`HC($9&1D9&1F@@04Y$($154`HC($9&1D9H($%.1"!$55`*(R!&
  235. M1F@@04Y$(%-705`*(R`Q,#!H("\@(R`V-&@@*B`K"D)<+3Y2(%-705`@(R`Q
  236. M,#`P,&@@+PHC(#)H("T@(R`T:"`O(",@,31H"E-705`@+2!"7"T^4B`Q("T@
  237. :4D-,1@HR(",@,&@@4%54(%-43T8*7#X^"@IH
  238. `
  239. end
  240. -----------(end of UUE version)------------------------------
  241.  
  242. Thats it. Enjoy!
  243.  
  244. Paul
  245. -- 
  246. Paul Raines
  247. Georgia Institute of Technology, Atlanta Georgia, 30332
  248. uucp:      ...!{decvax,hplabs,ncar,purdue,rutgers}!gatech!prism!vapsppr
  249. Internet: vapsppr@prism.gatech.edu
  250.